home *** CD-ROM | disk | FTP | other *** search
/ A Field Trip to the Sky (Demo) / Mac_Sunburst_AFieldTripToTheSky-Demo.iso / DIR / TERMS.DIR / 00369_Bitmap_PLO.DIR PICT0025 < prev    next >
Text File  |  1996-03-21  |  736b  |  29 lines
  1. on mouseUp
  2.   global gAudPath
  3.   
  4.   set theMouseWord to the mouseWord
  5.   set theMouseLine to the mouseLine
  6.   set c to the castNum of sprite the clickOn
  7.   
  8.   set theWord to word theMouseWord of the text of cast c
  9.   
  10.   if the textStyle of word (theMouseWord) of field c = "bold" AND the soundEnabled then
  11.     
  12.     set theLine to line theMouseLine of field c
  13.     set o to offset(":",theLine)
  14.     
  15.     set theTerm to char 1 to (o-1) of theLine
  16.     
  17.     put theTerm
  18.     
  19.     set theAudio to getTermIndexInfo(theTerm, 2)
  20.     put theAudio
  21.     if theAudio <> "" AND the soundEnabled then  
  22.       if the machineType <> 256 then
  23.         sound playfile 2, gAudPath & theAudio
  24.       end if
  25.       
  26.     end if
  27.   end if
  28.   
  29. end